perm filename HSTAT.SAI[KID,KMC] blob
sn#122892 filedate 1974-11-15 generic text, type T, neo UTF8
BEGIN "DUMPEM"
INTEGER ARRAY DRCTRY[0:127];
INTEGER DENT,D,FLAG;
INTEGER DATE,OLDDATE;
INTEGER NOSESS,DATEMASK,NOBLKS;
STRING FILNAM;
LABEL GETNAM;
DEFINE CRLF="13&10";
DEFINE HSTCHN="11";
DEFINE FORMDATE="
START_CODE
MOVE '15,DENT;
AND '15,DATEMASK;
MOVEM '15,DATE;
END";
DATE←OLDDATE←0;
NOSESS←0;
DATEMASK←'007777777777;
GETNAM: OUTSTR(CRLF & "TYPE THE CHILD'S NAME, THEN CARRIAGE RETURN: ");
FILNAM←INCHWL;
OPEN(HSTCHN,"DSK",15,0,0,0,0,0);
LOOKUP(HSTCHN,FILNAM&".HST[1,KMC]",FLAG);
IF FLAG THEN BEGIN
OUTSTR("FILE "&FILNAM&".HST [1,KMC] NOT FOUND");
RELEASE(HSTCHN);
GOTO GETNAM;
END;
ARRYIN(HSTCHN,DRCTRY[0],128);
NOBLKS←DRCTRY[0] MOD '1000000;
FOR D←1 STEP 1 UNTIL NOBLKS DO BEGIN
DENT←DRCTRY[D];
FORMDATE;
IF DATE≠OLDDATE THEN NOSESS←NOSESS+1;
OLDDATE←DATE;
END;
RELEASE(HSTCHN);
OUTSTR(CRLF&CVS(NOSESS)&" SESSIONS RECORDED."
&CRLF&CVS(D)&" BLOCKS USED."
&CRLF&CVS(128 - D)&" BLOCKS REMAINING."&CRLF);
END "DUMPEM";